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!»«»COPYQIGHT 1969, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS,»«» 

ITHIS SUo-PRiGRAM ASSEMBLED w[Th SYSTEM PARAMETER FIIE - S,MAC(V414) 

XLIST 

LIST 
TITLE PTRSER - PAPER Tape READER SERVICE ROUTINE FOR BOTH PDP-6 AND PDP-1 
SURTTL /GRH/TNM TS 14 APR 69 VP04 
XP VPTRSR.25I4* 

»PUT VERSION NilMPER IN GLOB LISTING AND LOADER STORAGE MAP 
EXTERNAL STOSOO, I L L U T 
EXTERNAL STOOAT, IOSET, SETBYT, ADVBFF 
EXTERNAL SETIOO. PTRSAV, PTRrHN , PI OMOD 
FXTERNAL SFTACT.STOIOS.CPOPJI.PTRMSK 
INTERNAL PTRINT.PTRDSP 

iPTR DEVICE DATA BLOCK LINKAGE 



20 
?1 
22 
23 
2 4 
25 
26 



5"000F0 



ENTRY PTRSER 
PTRSER: 



PTRSrR - papfR TAPE READER SERVICE ROUTINE F~R BOTH POP-6 AN"' PD°-16 
/GBH/TNM TS It APR 69 V004 
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?7 
?B 
?9 
3 
31 
32 
33 
3 4 
35 
^6 
37 
38 
3 9 

■ii 

42 
43 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 



0000 

00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 
00013 
00014 



606462 
000036 
000000 
000000 
0002?2 
0000P0 
00001*0 
0. 7 
000000 
000000 
000000 
000000 
000000 



000010 
000020 

000040 
000400 



400000 
200000 
100000 

000177 



000000 

0000 41 

000000 

000017' 

014403 

000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 



.PARAMETER ASSIGNMENTS 
, PTR r-ONTRQL REGISTER 

r>TRDON = l? 

PTRB<?Y = 20 

PTRBIM=40 

PQW=400 



IDONE FLAG 
IBUSV F L AG 
1BINARV READ MODE 
JPnWER. 0N = 1 



SPECIAL !0 STATUS WORD ASSIGNMENTS 

!CDISC=400003 

PTRFCI =200000 

PTRPOw=100000 
SPECIAL »SCII CHARACTERS 

RUR0'iT = 177 



INTERNAL FTCHECrt.FTMONP 
IFN FTCHFCK*FTMO\P. < 

EXTERNAL PTRnDP.PTRIOS,PTRAn=,PTRPTR,PTRCTR,PTRSVC.PTRSVl.PTRCON 
> 

IF E FTCHFCK + FTMOVP .< 
;PTR OFVICE DATA BLOCK 
INTERN °TRDHB 

PTRDDn: 

PTROAT: SIXBIT /PTR/ 

xwn TD30itH'.JNCST,41 
P T R I S : •' 

FXP PTRDSP 

XWD DVPTR+DVIN. 14403 



PTRAOR : 
PTRPTR: 
PTRCTH! ? 
PTRSVC! " 
PTRSVl: 
PTRCON! 
> 



XWD 





PROG.0 



PTRSER 



• PAPER TAPE READER SERVICE ROUTIME FOR BOTH PDP-6 ANO PDP-1C 
/GRH/TNM TS 14 APR 69 V004 
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65 
66 
67 
68 
69 
70 
71 
72 



,PTR SERVICE DISPATCH TABLE 



000015 254000 000145' JRST PTRINI 

000016 254000 000145' JRST PTRRTL 

000017 ?540Ji0 000145' PTRDSPl JRST PTRREL 

000020 2631.40 000000 POPj PDP, 

000021 2540(510 000000 jrst ILLOUT 



ilNITILIZE 

IHUNG DEVICE TIME-OUT ERROR. 

IRELEASE 

ICLOSE 

SOUTPUT 



PTRSFR - PAPFR TAPE DEADER SERVICE ROUTINE FOR BOTH PDP-6 AND PDP-10 
/GPH/TNM TS 14 APR 69 V004 
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73 


000022 


6070^0 


000002 


74 


000023 


? 5 4 1, f 


000e32' 


75 


000024 


661000 


000004 


76 


t"0C0?5 


621000 


700000 


77 


000026 


260140 


000000 


78 








79 


■*000?7 


202040 


000010' 


80 


000030 


7107P0 


000400 


81 


000031 


661000 


100000 


82 


000032 






R3 


000032 


201100 


000020 


84 


000033 


627000 


000002 


"5 
86 
87 


000034 


201100 


00001 


000035 


607000 


100000 


88 








39 


000036 


405100 


000000 


90 


000037 


260140 


000000 


91 


0000^0 


201042 


000000 


92 


000041 


13511-0 


000000 


93 


000042 


302100 


000013 


Q4 


000043 


306100 


000014 


95 


000044 


435040 


000040 


96 


1700045 


505040 


000010 


97 








98 


F00046 


7 00 6 


000000 


99 


000047 


ll<ib'f\ 


000000 


170 


000050 


546040 


000014 ' 


iai 


000051 


700600 


000000 


Iff 2 


000052 


263140 


000000 



P T R I N 1 I 



DP-10 



VIRGIN DEVICE? 

JFXT ITEM WILL PE FIRST ITE" "F A BUFFER 



TLNN I0S.108EG I INPUT 

JRST PTRIM1 INO 

TLO IOS.IOFST I IOFST : =1 

TL? roS.PTRPOW+PTRFCI+IaniSC 

PU«HJ PDP,SETBYT iTAC0-5i=TAC12-13:=0,TAC6-ll:=RYTE SI2E 

ITAC14-17:=PR0G 
"OVEM TAC.PTRPTR I PTRPTR I =C ( T AC ) 
CONS? PTR.POW MS POWER OK'? 

TLO IOS.PTRPOW IYES. PTRPO'-M=l 



MOVEI TACliPTRBSY 
TL?N IOS,IOBEG 
MOVEI TACliPTROON 

TLNN IOS.PTRPOW 
ANni TAC1.PTRMSK 



(VIRGIN? 
INO 



1PTRMSK IS DEFINED IN BUILD AS -1 PDP-6 AND P 



I IOACT ! =1 



PUSHJ PDP,SETACT 

MOVEI TAC.PTRCHN(TACl) 

LDP TAC1.PIOMOO 

CAIE TAC1.1B 

GAIN TAC1.B 

TORI TAC.PTRBIN 

NRLI TAC.PTRnON 

STARTDV PTRtEXTERNAL PIOFF.PION 

TONO PI .PIOFF 

fONO PTR, (TAG) 

HLRM TACPTROON 

CONO PI.PION 

POPJ POP, 



(IMAGE BINARY? 
IOR PINARY? 



PTPSFR 


- PAPFR 


tape: deader service routine fir both pdp-6 a 




/GPH/TNM TS 14 


1 APR 69 


V004 




103 
104 


000053 


710760 


000014 1 


PTRINT: 


1 rCNSO PTK.SPTRCOK 


1*5 


000054 


2540.10 


000053 ' 




JRST PTR|\iT 


1*6 


000055 


331000 


000002 ' 




SK1PL PTRIOS 


107 


0000*6 


710440 


000013 ' 




TATAI PTR,PTRSV1 


178 


000057 


264000 


000000 




JSR PTRSAV 


1^9 


000060 


201300 


000000' 




WOVE! OEVDAT.PTRPOS 


110 


000061 


260140 


000000 




PUSHJ PDP. IOSET 


111 












112 


000062 


200240 


000013 1 




MOVE DAT.PTRSVl 


113 


000063 


710740 


000400 




PONSO DTR.POW 


114 


00064 


254000 


000113' 




JRST PTRenQ 


115 


000065 


667000 


100000 




TLON lOS.PTRPOw 


116 


000066 


254000 


000143' 




JRST PTREX1 


117 


000067 


623000 


400000 




TL?E IQS. IODISC 


116 


000070 


2540^0 


000131' 




JRST PTREX 


119 


000071 


623000 


200000 




TL?E IOS.PTRFCI 


120 


000072 


200240 


000012' 




«OVE 0»T,PTRSVC 


121 


000073 


602010 


000014 


PTRINIS: 


TRME IOS.B 


122 


000074 


254^00 


00101' 




JRST PTRI0 


123 


000075 


405240 


000177 




ANHI DAT, 177 


124 


000076 


306240 


000177 




i"AIN, DAT.RUBOUT 


125 


000077 


25 4 000 


000143' 




JRST PTRFX1 


1?6 
127 


000100 


322240 


000143 ' 




JUMPF OAT.PTREX1 


118 


000101 


260140 


000000 


PTRI0! 


c UShJ PDP.STODAT 


1?9 


000102 


255000 


000000 




JFCL 


130 


""00103 


254000 


000105 ' 




JRST PTRJ1 


151 
1 5 2 


000104 


254000 


000143' 




JRST PTHEX1 


133 


000105 


260140 


000000 


PTRIli 


PUSHJ POP.AQVBFF 


154 


000106 


661000 


400000 




TLO IOS.IOOISC 


135 


000107 


661000 


000004 


PTRI2 I 


Tin ios.iofst 


136 


000110 


623000 


000001 




tl?e ins,mw 


137 


000111 


260140 


000000 




PUSHJ PDP.SETIOD 


138 


000112 


254000 


000143' 




JRST PTRFX1 



ppp-ie 
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IDISCONNECT REQUEST? (IODISC=l?) 

|PTRSVll=DATA ITEM, 

ISAVE ACCUMULATORS AND ESTABI ISH PDP 

iSET UP OEVDAT 

!PR0Gl=C(jPTADR18-35) , I TEM I =C < DEVCTR ) 

MOS:=C(PTRlOS) 

.'□AT!=DATA ITEM 

IPTR POWER DM? 

I NO 

IPTRP0W=1? PTRPOW:=l 

INO 

(DISCONNECT REQUEST? 

.'YES 

MS PTRFCI=1? 

(YES. OAT:=r(PTRSVC) 

IMPQEsBINARY? 

I YES 

imask out parity bit 
ilast char a rusout? 

IYES 
IOAT=0? 

I NO STORF DATA WORD, 
(CHECKSUM ERROR 
(BLOCK FULL OR BLOCK COMPLETE 
(DATA STORED CORRECTLY, 

(ADVANCE BUFFER 

(NEXT PUFFER IS FULL. IODISC!=l 

IinFST!=l, NEXT ITEM IS FIRST ITEM OF A BUFFER, 

I IN A WAIT? IPWi =0 

I IOWSi=l 



- PAprfj TiP ! "tADf:^ 
/i,3ri/T! kl >' Tj 14 ftp" 



'9 v " >J J 



.. ~ t -| j n i _ a a \ • P r^ p _ ] m 
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• 11 
'_ * 2 
1 -13 

1 1 4 

; "5 

■4 6 
i 4 7 
I -i 6 

1-: g 
l' ; l 

l'i2 

r>3 

1M 

1 '■ <i 
' ~6 



■U" r :l I' 



; HL'T OFF 



? 3 I'll. 3 *3.Vi' " J ," i K k5 ' Pl-EV:): 

'0!<11« ^"l'M i'145' 

'VHS 1 3 K :'4f /J.-V-n' 

"•5/11 s ')61/;'H ?<!;\:42 

■"<?:"11 7 3f;3.r40 ? 3.-/1 4 

flfy; f. - , b4," -b ?,j?i?4. i 

M ^"l?l f-07K, *i ?M.::'.4 

?3!'1?2 f.6"!'.- 4,I7."V 

'"^/I'J PSV.'tf (•<»? l ■" 7 ' 

70P1?4 ?6l'14f- ("a^?;»ki "TRF.i: 

?-j?L?5 ?55/"H •?-■$? i?\. 

■'/"1P6 ?6'-'14t" P0?in5' 

r"i)."i'7 ?5V'0 r"k)?/^n 

» / 7 1 '.< ^ 5 5 4 ^ ■ f ri /) -J i -> 7 ■ 



T L~ • I S . [ X W '; PTWOW.IO'CT] 
c L- c h.i PDP.PT'iRrx 
L l' n T A t ' ' I rt M n Q 
T ! ."' 'OS. !?f\"M j = Er. 
"Alt T AC , i? ' 
IRST PTRr] 

TL^'N I OS , I " : F S T 

is" 'n^.jo livpyi 

„-«ST PT„I2 

c ^ c h.J POP.ST^S'M 
JFT L 

"^•i.! D jP,i^V6rF 
IP." L 
JRH P T ~i ! 2 



iPT^OK{=i!, IOAOT:=" 
ICI.E4R P T R A"0 COMSO F[ AT, 

iCHEOKSU" PIVARY BLOCK ■-">JF? 

: 10F?T=1? 

I Ml. SINARY "LOCK IM:0"PLt.TE. 

IFINIS^ This BUFFER, STORE kORn fjU\T 

; A'"V4ls r E HUF PER 



PTfioFR 



- PAPFR TAPE READER SERVICE ROUTINE FOR BOTH PDP-* AN 1 PQP-10 
/GRH/TNM TS It APR 69 V004 
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1S7 
l<sa 
IS 9 
160 
161 
162 
163 
1M 
1*5 
1 '6 
W 
1*8 
169 
170 

1?1 
1 72 
173 
174 

17b 



.DISCONNECT PTR 

000131 3370" 000007' PTREX! SKlP r . 0PTRADR 

000132 2540/0 000135' JRST PTREXC 

000133 711*448 000005 DATAI PTP.HAT 
ps05H.^4 2 5^k >" 00i"Z73' JRST PTR|N0 

000135 710440 000312' PTREXB! DATA] PTR.PTRSVC 

?0'*136 A23000 000001 Tl?E IOS.IOw 

000137 260140 000m' "UShJ PQP.SETI'JJ 

000140 260140 000145' PUShJ °DP.PT«REL 

700141 661000 200000 TUO !OS»PT R FCI 

"00142 6200^0 010000 TR? lOS.IO'CT 

000143 20?2'0 00*011' PTREXl: "OVE" ITEH.PTRCTP 

'■•B0J.44 ?54i;-0 000070 JRST 5T0I0S 



I I0USE=1? 
iYES, 



(SAVE LAST DATA WORD FRO" PTR 
(JOB IN AN I" WAIT FOR PTR? 

;YES. WAKE UP JOR 
ICLEAR PTR AN'D CQNSO FLAT, 
IPTRFCI !=1 
I I0ACT:=7 

iPTRCTRl =C( ITEM) 

.•STORE I^S. RESET HUNG DEVICE 

.-TIMEOUT COUNT AMD DISMISS, 



176 
177 
17 
179 
1MB 
1'U 
1 » 2 



000145 

700145 
^00146 

000147 



7106'!'0 
5130-k; 
2631.40 



000150 1003'' 



000000 

000014 ' 

000000 



3100 ,, 



PTRINI : 
PTRRF1 J 



CON'O PTH.Z 
HLLZ 5 PTRCON 
PCPJ POP, 

FNO 



ICLEAR PTR CONTROL 
ICLEAR CONSO FLAG 



VO ERRORS DETECTED 
"KCG^AM RRFak IS 000151 



oldsrR - PAPER TAPE ' : EADER SFRVICE SOuT^E 
c ;y m hpl TABLE 



ADVBFF 
OAT 
n V i' T * 

hu^c;"T 

ICACT 
I OF <i ' 

to? 

I T r '-1 
P I ^ ^ D 
PROQ 
PTRrl^Y 
PTOCTR 
PT" )^M 
= TPF. 'C 
PTPrvi 
P T P I 1. 
PTPT'l 
PTRI '■S 
PTRPTR 
P T !". S r R 
RIIGT'T 
SET 1^0 

s t " s ■■■ a 

VPTIJCR 



700 \?b' 


EXT 


m?\' ■■•<} 


INT 


7. 7 £ : 


INT 


»0 :"■■■'! 


INT 


31 A: "0 


INT 


7 00 ■? ' 


INT 


i>0 ?«;:.'« 


INT 


<" 1* K ' 1 


INT 


7 1 1 & ' 


EXT 


7070 '7 


IMT 


7000P0 




707011' 




* u f a i ? 




."0"113' 




:' «: f 1 ■> J ■ 




70'-'! '5' 




"■0ft <2' 




707,-<2' 




•100010' 




7 00070" 


INT 


71501 ■■ 7 




■'07i '7' 


FXT 


'■" t? ^ 3 7 4. ' 


EXT 




! K T 



r EVJAT 
FT^Hf C 
16 
IU n Er- 

larsT 

I0SET 

"DP 

PION 

I'T^A^R 

"TRCHf. 

P T P " A T 

PTRri^P 

FTRF V 

c 1 R f" r I 

PTP 1 7 

PTPp:l 

oTRr^K 

PTRRTL 

PT^SVI 

SET4CT 

e T0CAT 

TAP 



3 n T M 


POP-6 AN'" HJP-1 




5"as?Kli 4 


INT 




7 70;- 6 


!\T 




7070™0 


INT 




70.101 3 


TJT 




7070 '2 


I »T 




7 7 'M 


INT 




?!00fl*l' 


FXT 




7070""3 


INT 




10?IB!^1 • 


FXT 




C! 1 W ■-» 7 • 






i"0?l0<i0' 


EXT 




?070"0 ' 






700017' 


I NT 




'^ 7 1 7 1 ' 






?000 r "0 






0071-7' 






T001-15 ■ 






000076 ' 


EXT 




("00145 ' 






"00013' 






7000:<7' 


FXT 




103171 ' 


fXT 




"I000-"! 


INT 



«-./ 



CPOP^l 

: v i .4 

r T M (j K p 
ILLO'JT 

i on i sc 

I 0IM°M 

IOW 

PIClFF 

POW 

PTRBIN 

PTRCHN 

PTRQnij 

PTPLI 

PTREX0 

PTR I 7 

P T R I M 

P T R I K T 

PTRPOk 

PTRSA V 

PTR5VC 

SETBYT 

STOIOS 

TAC1 



6P P A7E 


2 ' 


707070 


'X T 


77,0072 


'V 


707070 


"N T 


•*070?1' 


rX T 


4 7 Z 7 I 




40?0»0 


'NT 


707071 


•N T 


7771^46' 


rXT 


? 7> 7 A 7 ?. 




7 2 4 7 




70 7 014' 




7 0000 0' 


I NT 


700124' 




707135' 




700101' 




300073' 




000053' 


I NT 


100070 




000057 ' 


rXT 


700012' 




0217026 ' 


FXT 


707144 ' 


FXT 


007072 


INT 



A 


bU 


6 


4C.1 


6* 


6 


tc? 


fi# 


6 


AC3 


6* 




Anv?rr 


12 


1 ^3 


AEFF3R 


6* 


6 


«L 


6* 


6 


AS^C^N 


6* 


6 


ASS3'5(i 


6« 


6 


q 


6# 


b 


d u r o >. j 


6* 


6 


RUF^D 


6# 


6 


rLK* 


6# 


6 


TLSI" 


6# 


6 


CLSO ! .iT 


6* 


6 


r. m w y 


6* 


6 


CORC- T 


6* 


6 


CPOP Jl 


11 




n 


6* 


6 


OAT 


6« 


6 


^CL 


6* 


6 


DCLI 


6* 


6 


nCL') 


6« 


6 


nCLR 


6* 


6 


ODI 


6* 


6 


non 


bit 


6 


DEM 


6# 


6 


OEVAPR 


6# 


6 


nEV^i.'F 


6* 


6 


oevc«r 


6# 


6 


OEVCTR 


60 


b 


OEVOAT 


6# 


6 


nEVEVT 


6# 


6 


nEvriL 


6« 


6 


HEVIAO 


6* 


6 


nEvi^s 


6* 


6 


HEVL^G 


6* 


6 


OEV^-10 


6# 


6 


HEVNAM 


6* 


6 


DEVOAD 


6# 


6 


nEVPPN 


6* 


6 


nEVPTR 


6 


6 


nEVSFR 


6ff 


6 


nGf 


6ff 


6 


nH»JG 


6# 


6 


on 


6# 


6 


ni" ! i 


6* 


6 


nLK 


6* 


6 


DMT 


6* 


6 


nNAEPR 


6« 


6 


no u 


6* 


6 


nR 


6* 


6 


ORL 


6* 


6 



154 



117 



112 



123 



124 



126 



161 



1?9 



1R-- 


6* 


6 




2STR 


6* 


6 




ns I 


6# 


6 




n S * n I. 3 


6# 


6 




ns- 1 


0* 


6 




n v » v » l 


6* 


b 




nvrjn 


6* 


6 




nv^I" 


6# 


6 




nv n t"i 


6* 


6 




nvnis 


6# 


6 




DV n SX 


6* 


6 




OVHTi 


6* 


6 




n v 1 w 


6* 


6 


55 


DVLNS 


6* 


6 




hvlpt 


6« 


6 




OV"T.\ 


68 


6 




HVVJT 


6« 


6 




DVPTP 


60 


6 




QVPH 


6* 


6 


55 


PVTTV 


6# 


6 




F^TRo 


6* 


6 




F9"FRR 


6# 


6 




FN^FRR 


6« 


6 




FRr.SFG 


6# 


6 




FT2RFL 


6* 






FTATTA 


6* 






FTC4FC 


6* 


42 


43 


FTFX4M 


6* 






FTFIM 


6* 






FTGFTT 


6* 






fTMALT 


6* 






FTKCT 


6l» 






FTMOMP 


6# 


42 


43 


FTPRV 


btt 






FTRA10 


6« 






FTRCHK 


6# 






FTRF4S 


6* 






FTSLEE 


6* 






TTTALK 


6* 






FTT IM£ 


6* 






FTTRAC 


6* 






TTTRPS 


6* 






FT T TVS 


6* 






4SAMSK 


6* 


6 




WSAP1S 


6* 


6 




usasiz 


6* 


6 




UUNGCT 


6# 


6 




MU^GST 


6* 


6 


52 


I 


6* 


6 




IB 


6* 


6 


33 


IBUFB 


6# 


6 




1CL.TSB 


6# 


6 




ILIO'JT 


11 


72 





ILM 


6* 
















ILUERR 


btt 


6 














INOF° 


6# 


6 














1MITH 


bit 


6 














INPB 


btt 


6 














10 


6# 


6 














I0ACT 


bit 


6 


143 


169 










10REG 


bit 


6 


73 


SI 


146 








I0RKTL 


bit 


6 














10B0T 


btt 


6 














lOCO* 


bit 


6 














IOnEK'0 


bit 


6 














100ERR 


bit 


6 














IOOJSC 


35# 


76 


117 


134 










IOotfr 


btt 


6 














lOFNn 


bit 


6 


146 












IOFST 


b« 


6 


75 


13b 


149 








IOIMPM 


btt 


6 


150 












IONRCK 


btt 


6 














IOPAR 


btl 


6 














io=; 


bit 


6 


73 


73 


76 


81 


P4 


87 




136 


113 


146 


149 


150 


165 


1*8 


169 


IOSET 


12 


110 
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